﻿Public Class ExceptionFactory
    Inherits Exception

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal codigo As Integer, ByVal mensaje As String)
        Me._codigo = codigo
        Me._mensaje = mensaje
    End Sub
#End Region
#Region "Campos y Propiedades"
    Private _codigo As Integer
    Private _mensaje As String
#End Region

    Public Function GetCodigo() As Integer
        Return Me._codigo
    End Function
    Public Function GetMensaje() As String
        Return Me._mensaje
    End Function


End Class
